home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Magnum One
/
Magnum One (Mid-American Digital) (Disc Manufacturing).iso
/
d27
/
matenc.arc
/
ENCPGM.CMD
< prev
next >
Wrap
OS/2 REXX Batch file
|
1991-12-04
|
1KB
|
28 lines
ENCPGM: CMD PROMPT('Encapsulate an Object Program.')
/* ENCPGM -- Version 2 */
/* Command processing program is CPP1580 */
PARM KWD(PGM) TYPE(QUAL) MIN(1) PROMPT('Program to +
encapsulate:')
PARM KWD(FILE) TYPE(QUAL) MIN(1) PROMPT('File name +
containing object:')
PARM KWD(MBR) TYPE(*NAME) DFT(*PGM) SPCVAL((*PGM)) +
EXPR(*YES) PROMPT('Member name:')
PARM KWD(REPLACE) TYPE(*CHAR) LEN(1) RSTD(*YES) +
DFT(*NO) SPCVAL((*YES '1') (*NO '0')) +
EXPR(*YES) PROMPT('Replace existing +
program:')
PARM KWD(AUT) TYPE(*CHAR) LEN(1) DFT(*NO) +
SPCVAL((*NO '0') (*YES '1')) EXPR(*YES) +
PROMPT('Grant like authority to obj:')
QUAL: QUAL TYPE(*NAME) MIN(1) EXPR(*YES)
QUAL TYPE(*NAME) DFT(*LIBL) EXPR(*YES) +
SPCVAL((*LIBL)) PROMPT('Library name:')
DEP CTL(&AUT *EQ '1') PARM((&REPLACE *EQ '1')) +
NBRTRUE(*EQ 1)